home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / dirtextp.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  510 b   |  31 lines  |  [TEXT/ttxt]
  1. class TextSprite (Sprite, TextPresenter)
  2. end
  3.  
  4. method matteColorSetter self {class TextSprite} newColor ->
  5. (
  6.     self.invisibleColor := newColor
  7. )
  8.  
  9. method matteColorGetter self {class TextSprite} ->
  10. (
  11.     self.invisibleColor
  12. )
  13.  
  14. method invisibleColorSetter self {class TextSprite} newColor ->
  15. (
  16.     if newColor = undefined then
  17.         self.fill := whiteBrush
  18.     else
  19.         self.fill := undefined
  20.     
  21.     newColor
  22. )
  23.  
  24. method invisibleColorGetter self {class TextSprite} ->
  25. (
  26.     if self.fill = undefined then
  27.         whiteBrush
  28.     else
  29.         undefined
  30. )
  31.